home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abb.d64 / test writer v3.1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  15KB  |  644 lines
  1. 100 GOSUB9005
  2. 105 DIM TF$(40),AN$(40),FL$(40),FS$(40),MA$(40),MN$(40),ES$(20),EN$(20),B(20)
  3. 110 DIM AS$(100),R1(40),R2(40),TT(40),SS(40),SP(40),SQ(40),SR(20)
  4. 115 GOSUB8005
  5. 120 CLOSE4:GOSUB1000
  6. 125 ON Z GOTO2005,3000,3005,4000,5000,6005,8040,11000,130
  7. 130 POKE53280,2:PRINTCHR$(147);TAB(35);"[209][213][201][212]"
  8. 135 PRINT:PRINT:PRINT
  9. 140 PRINT"   [193]RE YOU FINISHED WITH [212][197][211][212] [215][210][201][212][197][210]?[144]"
  10. 145 PRINT:PRINT
  11. 150 PRINT"[208]RESS  [211]PACEBAR[146] FOR MAIN MENU"
  12. 155 PRINT"       [209] KEY[146] TO QUIT PROGRAM"
  13. 160 GOSUB180
  14. 165 IF Z$=" " THEN120
  15. 170 IF Z$="Q" THEN END
  16. 175 GOTO160
  17. 180 GETZ$:IFZ$=""THEN180
  18. 185 RETURN
  19. 190 END
  20. 1000 POKE 53280,5:POKE53281,6:POKE646,1
  21. 1002 PRINTCHR$(14)"[147]            [212][197][211][212] [215][210][201][212][197][210] V3.1"
  22. 1005 PRINT"             BY [211]HELTON [195]OLE"
  23. 1010 PRINT:PRINT"                  [205][197][206][213][146]
  24. 1015 [153]:[153]
  25. 1020 [153]"        1.  (null)RITE QUESTIONS
  26. 1025 PRINT"        2.  [204]OAD TEST FROM DISK
  27. 1030 [153]"        3.  (null)ERGE TEST FROM DISK
  28. 1035 PRINT"        4.  [211]AVE TEST TO DISK
  29. 1040 [153]"        5.  (null)RINT TEST
  30. 1045 PRINT"        6.  [197]DIT
  31. 1050 [153]"        7.  LENLEAN SLATE
  32. 1055 PRINT"        8.  [196]ISK [195]OMMANDS"
  33. 1058 PRINT"        9.  [209]UIT
  34. 1060 [153]"
  35. 1065 PRINT"  [212]OTAL NUMBER OF QUESTIONS.....";TQ
  36. 1070 IF DQ=0 THEN1080
  37. 1075 PRINT"  [201]NCLUDING"DQ"[157] DELETED QUESTION(S)[146]"
  38. 1080 PRINT:PRINT
  39. 1085 GOSUB1115
  40. 1090 GOSUB180
  41. 1095 Z=VAL(Z$)
  42. 1100 IF Z<1 OR Z>9 THEN1090
  43. 1105 PRINT CHR$(14)
  44. 1110 RETURN
  45. 1115 PRINT"  [212]RUE-[198]ALSE [207]PINION.........";Q1;
  46. 1120 IF DT>0THEN T1=DT:GOSUB 1180:GOTO1130
  47. 1125 PRINT
  48. 1130 PRINT"  [198]ILL-IN....................";Q2;
  49. 1135 IF DF>0THEN T1=DF:GOSUB1180:GOTO1145
  50. 1140 PRINT
  51. 1145 PRINT"  [205]ATCHING...................";Q3;
  52. 1150 IF DM>0THEN T1=DM:GOSUB1180:GOTO1160
  53. 1155 PRINT
  54. 1160 PRINT"  [197]SSAY......................";Q4;
  55. 1165 IF DE>0THEN T1=DE:GOSUB1180:GOTO1175
  56. 1170 PRINT
  57. 1175 RETURN
  58. 1180 T1$=STR$(T1):PRINT"(";MID$(T1$,2,LEN(T1$));")":RETURN
  59. 2005 PRINTCHR$(147);"[208]RESS SPACEBAR FOR MENU"TAB(25)"[209][213][197][211][212][201][207][206] [197][206][212][210][217][146]"
  60. 2010 PRINTLEFT$(CM$,2);"[197]NTER  [212][146]-[198]   [197][146]SSAY   [205][146]ATCHING   [198][146]ILL-IN"
  61. 2015 GET Z$
  62. 2020 IF Z$="T"THEN GOSUB2050:GOTO2065
  63. 2025 IF Z$="F"THEN GOSUB2050:GOTO2160
  64. 2030 IF Z$="E"THEN GOSUB2050:GOTO2220
  65. 2035 IF Z$="M"THEN GOSUB2050:GOTO2330
  66. 2040 IF Z$=" "THEN GOSUB2050:GOTO120
  67. 2045 GOTO2015
  68. 2050 PRINT LEFT$(CM$,2);LEFT$(V$,80):RETURN
  69. 2065 X=120
  70. 2070 Q1=Q1+1:HD=Q1:IFHD<41THENHD$="[147][212]RUE/[198]ALSE-[207]PINION":GOSUB2385:GOTO2080
  71. 2075 GOSUB2405:Q1=Q1-1:GOTO120
  72. 2080 IF P$="" THEN Q1=Q1-1:GOTO2005
  73. 2085 TF$(Q1)=P$
  74. 2090 PRINT LEFT$(CM$,10);"IS THE ANSWER [212][146]RUE, [198][146]ALSE, OR [207][146]PINION?"
  75. 2095 GET Z$
  76. 2100 IF Z$="T" THEN PRINT"TRUE[146]":GOTO2120
  77. 2105 IF Z$="F" THEN PRINT"FALSE[146]":GOTO2120
  78. 2110 IF Z$="O" THEN PRINT"OPINION[146]":GOTO2120
  79. 2115 GOTO2095
  80. 2120 GET Z1$
  81. 2125 IF Z1$=CHR$(13)THEN2140
  82. 2130 IF Z1$=CHR$(20)THEN PRINT LEFT$(CM$,11);"       [145]":GOTO2095
  83. 2135 GOTO2120
  84. 2140 AN$(Q1)=Z$
  85. 2145 TQ=TQ+1
  86. 2150 PRINTCHR$(147):GOTO2070
  87. 2160 X=120
  88. 2165 Q2=Q2+1:HD=Q2:IF HD<41THEN HD$="[147][213]SE [195]= @[146] FOR FILL-IN":GOSUB2385:GOTO2175
  89. 2170 GOSUB2405:GOTO120
  90. 2175 IF P$=""THEN Q2=Q2-1:GOTO2005
  91. 2180 FL$(Q2)=P$
  92. 2185 PRINTLEFT$(CM$,10);"[197]NTER THE ANSWER.[146]"
  93. 2190 X=39:GOSUB7010
  94. 2195 FS$(Q2)=P$
  95. 2200 IFFS$(Q2)=""THEN2185
  96. 2205 TQ=TQ+1
  97. 2210 PRINT CHR$(147):GOTO2160
  98. 2220 X=199
  99. 2225 Q4=Q4+1:HD=Q4:IF HD<21 THEN HD$="[147][197]SSAY QUESTION":GOSUB2385:GOTO2230
  100. 2230 IF P$=""THEN Q4=Q4-1:GOTO2005
  101. 2235 ES$(Q4)=P$
  102. 2240 PRINT"[197]NTER THE ANSWER"
  103. 2245 PRINT"(PRESS [210][197][212][213][210][206] FOR"CHR$(34)"[193]NSWERS WILL VARY"CHR$(34)")"
  104. 2250 X=199:GOSUB7010
  105. 2260 IF EN$(Q4)="" THEN EN$(Q4)="ANSWERS WILL VARY":PRINT"[193]NSWERS WILL VARY"
  106. 2265 PRINTLEFT$(CM$,19);"[200]OW MANY BLANK LINES? (1 - 30)"
  107. 2270 GOSUB2285
  108. 2275 B(Q4)=VAL(Z1$):IF B(Q4)<0 OR B(Q4)>30THENPRINTLEFT$(CM$,20)"  [145]":GOTO2270
  109. 2280 TQ=TQ+1:GOTO2220
  110. 2285 Z1$=""
  111. 2290 GOSUB180
  112. 2295 IF Z$=CHR$(13)THEN2315
  113. 2300 IF ASC(Z$)<48 OR ASC(Z$)>57THEN2290
  114. 2305 Z1$=Z1$+Z$:IF LEN(Z1$)>2 THEN2320
  115. 2310 PRINTZ$;:GOTO2290
  116. 2315 IF LEN(Z1$)<1 THEN2290
  117. 2320 RETURN
  118. 2330 X=28
  119. 2335 Q3=Q3+1:HD=Q3:IFHD<41THENHD$="[147][205]ATCHING [209]UESTIONS":GOSUB2385:GOTO2345
  120. 2340 GOSUB2405:GOTO120
  121. 2345 MA$(Q3)=P$
  122. 2350 IF P$="" THEN Q3=Q3-1:GOTO2005
  123. 2355 PRINTLEFT$(CM$,12);"[193]NSWER?"
  124. 2360 X=28:GOSUB7010
  125. 2365 MN$(Q3)=P$
  126. 2370 IF MN$(Q3)=""THEN2355
  127. 2375 TQ=TQ+1
  128. 2380 PRINTCHR$(147):GOTO2330
  129. 2385 PRINTHD$;TAB(25)"[209]UESTION ENTRY"
  130. 2390 PRINTLEFT$(CM$,2);"[209]UESTION #";HD;TAB(20);"TOTAL QUESTIONS:";TQ
  131. 2395 PRINT LEFT$(CM$,3);:GOSUB7010
  132. 2400 HD=0:RETURN
  133. 2405 PRINT"[147]";LEFT$(CM$,12);"[210]EACHED QUESTION LIMIT"
  134. 2410 PRINT"[208]RESS SPACEBAR FOR MENU"
  135. 2415 GET Z$:IF Z$<>" " THEN2415
  136. 2420 RETURN
  137. 3000 PRINT "[147]";TAB(28)"[204][207][193][196] [212][197][211][212]":MQ=0:M1=0:M2=0:M3=0:M4=0:GOTO3045
  138. 3005 PRINT"[147]";TAB(27)"[205][197][210][199][197] [212][197][211][212]":MQ=TQ:M1=Q1:M2=Q2:M3=Q3:M4=Q4
  139. 3010 D1=DQ:D2=DT:D3=DF:D4=DM:D5=DE
  140. 3015 IF TQ>0 THEN3045
  141. 3020 PRINT"[206]O TEST IN MEMORY"
  142. 3025 PRINT"[208]RESS SPACEBAR FOR MENU"
  143. 3030 GOSUB180
  144. 3035 IF Z$=" "THEN120
  145. 3040 GOTO3030
  146. 3045 PRINT"[212]EST NAME:"
  147. 3050 PRINT LEFT$(CM$,5);
  148. 3055 X=15:GOSUB7010
  149. 3060 IF P$="" THEN120
  150. 3065 F$=P$
  151. 3070 OPEN15,8,15:PRINT#15,"I0:":GOSUB4215
  152. 3075 OPEN 1,8,3,F$+",S,R":GOSUB4215
  153. 3080 INPUT#1,TQ
  154. 3085 INPUT#1,DQ
  155. 3090 INPUT#1,Q1
  156. 3095 INPUT#1,DT
  157. 3100 INPUT#1,Q2
  158. 3105 INPUT#1,DF
  159. 3110 INPUT#1,Q3
  160. 3115 INPUT#1,DM
  161. 3120 INPUT#1,Q4
  162. 3125 INPUT#1,DE
  163. 3130 IF(M1+Q1>40)OR(M2+Q2>40)OR(M3+Q3>40)OR(M4+Q4>20)THEN3140
  164. 3135 GOTO3160
  165. 3140 PRINT"[147]";LEFT$(CM$,12);"[197]XCEEDED QUESTION LIMITS":CLOSE1:CLOSE15
  166. 3145 PRINT"[208]RESS ANY KEY FOR MENU"
  167. 3150 GOSUB180
  168. 3155 GOTO120
  169. 3160 FORI=M1+1TO M1+Q1
  170. 3165 GOSUB3260:TF$(I)=LEFT$(A$,LL)
  171. 3170 GOSUB3260:AN$(I)=LEFT$(A$,LL)
  172. 3175 NEXT
  173. 3180 FOR I=M2+1TO M2+Q2
  174. 3185 GOSUB3260:FL$(I)=LEFT$(A$,LL)
  175. 3190 GOSUB3260:FS$(I)=LEFT$(A$,LL)
  176. 3195 NEXT
  177. 3200 FORI=M3+1TO M3+Q3
  178. 3205 GOSUB3260:MA$(I)=LEFT$(A$,LL)
  179. 3210 GOSUB3260:MN$(I)=LEFT$(A$,LL)
  180. 3215 NEXT
  181. 3220 FORI=M4+1TO M4+Q4
  182. 3225 GOSUB3260:ES$(I)=LEFT$(A$,LL)
  183. 3230 GOSUB3260:EN$(I)=LEFT$(A$,LL)
  184. 3235 INPUT#1,B(I)
  185. 3240 NEXT
  186. 3245 TQ=TQ+MQ:Q1=Q1+M1:Q2=Q2+M2:Q3=Q3+M3:Q4=Q4+M4
  187. 3250 DQ=D1+DQ:DT=D2+DT:DF=D3+DF:DM=D4+DM:DE=D5+DE
  188. 3255 CLOSE1:CLOSE15:GOTO120
  189. 3260 SYS896:LL=PEEK(142)
  190. 3265 RETURN
  191. 4000 PRINT"[147]";TAB(28)"[211][193][214][197] [212][197][211][212]"
  192. 4005 IF TQ>0THEN4035
  193. 4010 PRINT"[206]O QUESTIONS TO SAVE!
  194. 4015 [153]"(null)RESS SPACEBAR FOR MENU"
  195. 4020 [141]180
  196. 4025 [139] Z$[178] " "[167]120
  197. 4030 [137]4020
  198. 4035 [153]"(null)EST NAME:"
  199. 4040 [153] [200](CM$,5);
  200. 4045 X[178]15:[141]7010
  201. 4050 [139] P$[178]"" [167]120
  202. 4055 F$[178]P$
  203. 4060 [159]15,8,15:[152]15,"I0:":[141]4215
  204. 4065 [159] 1,8,3,F$[170]",S,W":[141]4215
  205. 4070 [152]1,TQ
  206. 4075 [152]1,DQ
  207. 4080 [152]1,Q1
  208. 4085 [152]1,DT
  209. 4090 [152]1,Q2
  210. 4095 [152]1,DF
  211. 4100 [152]1,Q3
  212. 4105 [152]1,DM
  213. 4110 [152]1,Q4
  214. 4115 [152]1,DE
  215. 4120 [129] I[178]1 [164] Q1
  216. 4125 [152]1,TF$(I)
  217. 4130 [152]1,AN$(I)
  218. 4135 [130]
  219. 4140 [129] I[178]1 [164] Q2
  220. 4145 [152]1,FL$(I)
  221. 4150 [152]1,FS$(I)
  222. 4155 [130]
  223. 4160 [129] I[178]1 [164] Q3
  224. 4165 [152]1,MA$(I)
  225. 4170 [152]1,MN$(I)
  226. 4175 [130]
  227. 4180 [129] I[178]1 [164] Q4
  228. 4185 [152]1,ES$(I)
  229. 4190 [152]1,EN$(I)
  230. 4195 [152]1,B(I)
  231. 4200 [130]
  232. 4205 [152]1:[160]1:[160]15
  233. 4210 [137]120
  234. 4215 [132]15,EN,EM$,ET,ES:[139] EN[178]0[167] [142]
  235. 4220 [151]53280,2:[153]"STR$RIGHT$(null)(null) VAL(null)(null)(null)(null): ";EN;EM$;ET;ES:[141]9080
  236. 4225 [153]"(null)RESS ANY KEY FOR MENU"
  237. 4230 [141]180
  238. 4235 [160]1:[160]15:[160]5:[137]120
  239. 5000 [153][199](147);[163]30);"(null)(null)RIGHT$(null)(null) (null)VAL(null)(null)"
  240. 5002 [137]9075
  241. 5005 [159]4,4,7:PP[178]64:L[178]0
  242. 5010 [153] [200](CM$,3);"(null)UMBER OF QUESTION AVAILABLE:";TQ
  243. 5015 [153] [200](CM$,5);
  244. 5020 [141]1115
  245. 5025 [139] TQ[171]DQ[177]0 [167]5050
  246. 5030 [153]:[153]"(null)O QUESTIONS IN MEMORY OR ALL DELETED"
  247. 5033 [153]"(null)RESS SPACEBAR FOR MAIN MENU"
  248. 5035 [141]180
  249. 5040 [139] Z$[178]" "[167]120
  250. 5045 [137]5035
  251. 5050 [139]DQ[178]0 [167]5075
  252. 5055 [153]:[153]"(null)(null)(null)RIGHT$LENVAL!WAIT ONLY";TQ[171]DQ;"WAITQUESTIONS WILL BE"
  253. 5060 [153]"PRINTED. RIGHT$F YOU NEED MORE, RETURN TO"
  254. 5065 [153]"MENU.  (null)HEN PRESS 1WAIT TO WRITE MORE"
  255. 5070 [153]"QESTIONS OR 7WAIT TO UNDELETE EXISTING ONES."
  256. 5075 [153]:[153]"LENHECK PRINTER."
  257. 5080 [153]"(null)UT PRINTHEAD JUST BELOW PERFORATIONS":[153]
  258. 5085 [153]"(null)RESS SPACEBARWAIT FOR MAIN MENU."
  259. 5090 [153]"      (null) KEYWAIT TO START PRINTING"
  260. 5095 [141]180
  261. 5100 [139] Z$[178]" " [167]120
  262. 5105 [139] Z$[178]"P" [167]5115
  263. 5110 [137]5095
  264. 5115 [153][199](147);[200](CM$,8);"(null)ITLE OF TEST:"
  265. 5120 X[178]60:[153][200](CM$,9);:[141]7010
  266. 5125 [139] P$[178]""[167]5120
  267. 5130 TL$[178]P$
  268. 5135 [153][199](147);[200](CM$,10);"(null)(null)VAL(null)ATN(null)RIGHT$(null)CHR$ (null)VAL(null)(null)"
  269. 5140 [152]4," ":[152]4," ":[152]4,[166](64[171][195](TL$))[173]2)TL$:L[178]L[170]3
  270. 5145 [152]4," ":[152]4,"(null)AMETOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO":[152]4
  271. 5150 [152]4,"STR$ATETOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO":[152]4
  272. 5155 [152]4,"(null)ERIODTOTOTOTOTOTO":[152]4," ":L[178]L[170]7
  273. 5160 [153]:[153]:[153]"SORTING...":N[178]0
  274. 5165 [139] Q3[171]DM[178]0 [167]5275
  275. 5170 [152]4,"(null)ATN(null)LENLEFT$RIGHT$(null)CHR$: (null)RITE THE LETTER OF THE BEST ANSWER.":
  276. 5175 [152]4," ":[152]4," ":L[178]L[170]3
  277. 5180 W[178]Q3:[141]5575
  278. 5185 O[178]1
  279. 5190 [129] Q[178]1 [164] Q3
  280. 5195 SS(O)[178]TT(O)
  281. 5200 [139][200](MA$(Q),1)[178]"^"[167]5235
  282. 5205 G[178]N[170]65
  283. 5210 W$[178]MA$(Q)[170][201](V$,(29[171][195](MA$(Q))))
  284. 5215 [139] N[179]26 [167] W$[178]W$[170]" "[170][199](G)[170]". "[170]MN$(SS(O)):[137]5225
  285. 5220 G[178]G[171]26:W$[178]W$[170][199](G)[170][199](G)[170]". "[170]MN$(SS(O))
  286. 5225 O[178]O[170]1
  287. 5230 [141]5565:SP[178]7:[152]4,"TOTOTOTO";N$;:[141]5625
  288. 5235 [130]
  289. 5240 [139] DM[178]0[167]5275
  290. 5245 [129] Q[178]1 [164] Q3
  291. 5250 SS(O)[178]TT(O)
  292. 5255 [139] [200](MA$(Q),1)[179][177]"^" [167]5270
  293. 5260 W$[178][201](V$,30)[170][199](N[170]65)[170]". "[170]MN$(SS(O)):O[178]O[170]1
  294. 5265 SP[178]7:[152]4,"        ";:[141]5625
  295. 5270 [130]
  296. 5275 [139] Q1[171]DT[178]0 [167]5330
  297. 5280 [152]4,"(null)(null)(null)VAL ASCATN(null)(null)VAL AND (null)(null)RIGHT$(null)RIGHT$(null)(null): (null)RITE (null),ASC, OR (null) FOR EACH QUESTION."
  298. 5285 [152]4," ":[152]4," ":L[178]L[170]3
  299. 5290 W[178]Q1:[141]5575
  300. 5295 O[178]1
  301. 5300 [129] Q[178]1 [164] Q1
  302. 5305 SP(O)[178]TT(O)
  303. 5310 [139][200](TF$(SP(O)),1)[178]"^"[167]5325
  304. 5315 W$[178]TF$(SP(O)):[141]5565:SP[178]8:[152]4,"TOTOTOTO";N$;:[141]5625
  305. 5320 AS$(N)[178]N$[170]"  "[170]AN$(SP(O))
  306. 5325 O[178]O[170]1:[130]
  307. 5330 [139] Q2[171]DF[178]0 [167]5385
  308. 5335 [152]4,"ASCRIGHT$(null)(null)-RIGHT$(null): (null)RITE THE ANSWER IN THE SPACE PROVIDED."
  309. 5340 [152]4," ":[152]4," ":L[178]L[170]3
  310. 5345 W[178]Q2:[141]5575
  311. 5350 O[178]1
  312. 5355 [129] Q[178]1 [164] Q2
  313. 5360 SQ(O)[178]TT(O)
  314. 5365 [139][200](FL$(SQ(O)),1)[178]"^"[167]5380
  315. 5370 W$[178]FL$(SQ(O)):[141]5565:SP[178]7:[152]4,"   "N;:[141]5625
  316. 5375 AS$(N)[178]N$[170]"  "[170]FS$(SQ(O))
  317. 5380 O[178]O[170]1:[130]
  318. 5385 [139] Q4[171]DE[178]0 [167]5445
  319. 5390 [152]4,"VAL(null)(null)ATN(null): ATNNSWER EACH QUESTION COMPLETELY."
  320. 5395 [152]4," ":[152]4," ":L[178]L[170]3
  321. 5400 W[178]Q4:[141]5575
  322. 5405 O[178]1
  323. 5410 [129] Q[178]1 [164] Q4
  324. 5415 SR(O)[178]TT(O)
  325. 5420 [139][200](ES$(SR(O)),1)[178]"^"[167]5440
  326. 5425 W$[178]ES$(SR(O)):[141]5565:SP[178]4:[152]4,N;:[141]5625
  327. 5430 [129] K[178]1 [164] B(SR(O)):[141]5715:[152]4,".";[166]62);".":[152]4," ":[130]
  328. 5435 AS$(N)[178]N$[170]"  "[170]EN$(SR(O))
  329. 5440 O[178]O[170]1:[130]
  330. 5445 [141]5740
  331. 5450 [153][199](147);[200](CM$,14);"PRESS ATN KEYWAIT FOR ANSWER KEY"
  332. 5455 [153]"      SPACEBARWAIT FOR MAIN MENU"
  333. 5460 [141]180
  334. 5465 [139] Z$[178]" " [167]120
  335. 5470 [139] Z$[178]"A" [167]5480
  336. 5475 [137]5460
  337. 5480 [139] Q3[178]0 [167]5540
  338. 5485 K[178]1:G[178]0
  339. 5490 [129]I[178]1[164]Q3:K$[178][196](K):K$[178][202](K$,2,[195](K$))
  340. 5495 J[178]1
  341. 5500 [139] [200](MA$(I),1)[178]"^" [167]5535
  342. 5505 [139] J[177]Q3 [167]5535
  343. 5510 [139] I[179][177]SS(J) [167]5530
  344. 5515 G[178]J[170]64:[139] J[177][178]27 [167]5525
  345. 5520 [152]4,K$[170]".   "[170][199](G)[170]"  "[170]MN$(I):K[178]K[170]1:[152]4," ":[137]5535
  346. 5525 G[178]G[171]26:[152]4,K$[170]".   "[170][199](G)[170][199](G)[170]"  "[170]MN$(I):K[178]K[170]1:[137]5535
  347. 5530 J[178]J[170]1:[137]5505
  348. 5535 [130]I
  349. 5540 [129]I[178](Q3[171]DM) [164] N
  350. 5545 [152]4,AS$(I):[152]4," "
  351. 5550 [130]
  352. 5555 [160]4
  353. 5560 [137]120
  354. 5565 N[178]N[170]1:[139]N[179]10[167] N$[178][196](N):N$[178]" "[170][202](N$,2,[195](N$))[170]". ":[142]
  355. 5570 N$[178][196](N):N$[178][202](N$,2,[195](N$))[170]". ":[142]
  356. 5575 [129] I[178]1[164]W:R1(I)[178][187](0):R2(I)[178]R1(I):[130]
  357. 5580 [129]I[178]W[171]1[164]1 [169][171]1
  358. 5585 [129] T[178]1 [164] I
  359. 5590 [139] R1(T)[177]R1(T[170]1) [167] TE[178]R1(T):R1(T)[178]R1(T[170]1):R1(T[170]1)[178]TE
  360. 5595 [130]:[130]
  361. 5600 [129]I[178]1[164]W
  362. 5605 [129]J[178]1[164]W
  363. 5610 [139]R2(I)[178]R1(J) [167] TT(I)[178]J:R1(J)[178]1
  364. 5615 [130]:[130]
  365. 5620 [142]
  366. 5625 FL[178]0
  367. 5630 [139] FL[177]0 [167] [139] [195](W$)[179][178]PP [167]5640
  368. 5635 [137]5645
  369. 5640 [152]4,[200](V$,SP)[170]W$:[152]4," ":L[178]L[170]2:[141]5715:W$[178]"":[137]5710
  370. 5645 [139] [195](W$)[179][178]PP [167] [152]4,W$:[152]4," ":L[178]L[170]2:[141]5715:W$[178]"":[137]5710
  371. 5650 [129] J[178]PP[164] 1 [169] [171]1
  372. 5655 [139] [202](W$,J,1)[179][177]" " [167]5690
  373. 5660 FL[178]FL[170]1
  374. 5665 [139] FL[178]1[167]5680
  375. 5670 [139] FL[177]1 [167] B$[178][201](A$,SP)[170][200](W$,J):J[178]1
  376. 5675 W$[178][202](W$,[195](B$)[171](SP),[195](W$)):[137]5695
  377. 5680 B$[178][200](W$,J):J[178]1
  378. 5685 W$[178][202](W$,[195](B$)[170]1,[195](W$)):[137]5695
  379. 5690 [130] J
  380. 5695 [152]4,B$
  381. 5700 L[178]L[170]1
  382. 5705 [139] [195](W$)[177]0 [167]5630
  383. 5710 [142]
  384. 5715 [139]L[179]58 [167] [142]
  385. 5720 [153] [199](147);[200](CM$,14);"(null)RESS SPACE BAR TO CONTINUE PRINTINGWAIT"
  386. 5725 [141]180
  387. 5730 [139] Z$[178]" "[167]5740
  388. 5735 [137]5725
  389. 5740 [129] I[178]66 [164] L [169][171]1:[152]4," ":[130]
  390. 5745 [129]I[178]1 [164] 4:[152]4," ":[130]:L[178]4:[142]
  391. 6005 [160]4
  392. 6010 [153][199](147);"PRESS SPACEBAR FOR MENU"[163]25)"VALSTR$RIGHT$(null) (null)(null)VAL(null)(null)RIGHT$(null)(null)(null)WAIT"
  393. 6015 [159]4,3:PP[178]38
  394. 6020 [153][200](CM$,2);"VALNTER  (null)WAIT-ASC   VALWAITSSAY   (null)WAITATCHING   ASCWAITILL-IN"
  395. 6025 [161] Z$
  396. 6030 [139] Z$[178]"T"[167] [141]2050:[137]6060
  397. 6035 [139] Z$[178]"F"[167] [141]2050:[137]6140
  398. 6040 [139] Z$[178]"E"[167] [141]2050:[137]6310
  399. 6045 [139] Z$[178]"M"[167] [141]2050:[137]6220
  400. 6050 [139] Z$[178]" "[167] [141]2050:[137]120
  401. 6055 [137]6025
  402. 6060 [139] Q1[178]0 [167]6550
  403. 6065 [129] I[178]1 [164] Q1
  404. 6070 HD$[178]"LOAD(null)RUE/ASCALSE-(null)PINION":[141]6390
  405. 6075 W$[178]TF$(I)
  406. 6080 [141]6405
  407. 6085 X[178]120:W$[178]TF$(I):[141]6425:DT[178]DT[170]PQ
  408. 6090 TF$(I)[178]W$
  409. 6095 [139]Z$[178][199](13)[167]6005
  410. 6100 [139]Z$[178]"N" [167]6125
  411. 6105 [153][200](CM$,20);"(null)HE ANSWER IS NOW (null), ASC, OR (null)?"
  412. 6110 [141]180
  413. 6115 [139](Z$[178]"T")[176](Z$[178]"F")[176](Z$[178]"O")[167] [153] Z$:AN$(I)[178]Z$:[137]6125
  414. 6120 [137]6110
  415. 6125 [153] [199](147)
  416. 6130 [130]
  417. 6135 [137]6005
  418. 6140 [139] Q2[178]0 [167]6550
  419. 6145 [129] I[178]1 [164] Q2
  420. 6150 HD$[178]"LOADASCILL-INWAIT":[141]6390
  421. 6155 W$[178]FL$(I)
  422. 6160 [141]6405
  423. 6165 X[178]120:W$[178]FL$(I):[141]6425:DF[178]DF[170]PQ
  424. 6170 FL$(I)[178]W$
  425. 6175 [139] Z$[178][199](13) [167]6005
  426. 6180 [139]Z$[178]"N" [167]6205
  427. 6185 [141]6420
  428. 6190 X[178]39:[153][200](CM$,18);:[141]7010
  429. 6195 [139] P$[178]"" [167]6190
  430. 6200 FS$(I)[178]P$
  431. 6205 [153] [199](147)
  432. 6210 [130]
  433. 6215 [137]6005
  434. 6220 [139] Q3[178]0 [167]6550
  435. 6225 [129] I[178]1 [164] Q3
  436. 6230 F2[178]1
  437. 6235 HD$[178]"LOAD(null)ATCHINGWAIT":[141]6390
  438. 6240 W$[178]MA$(I)
  439. 6245 [141]6405
  440. 6250 X[178]28:W$[178]MA$(I):[141]6425:DM[178]DM[170]PQ
  441. 6255 MA$(I)[178]W$
  442. 6260 [139] Z$[178][199](13) [167]6005
  443. 6265 [139]Z$[178]"N" [167]6290
  444. 6270 [141]6420
  445. 6275 X[178]28:[153][200](CM$,18);:[141]7010
  446. 6280 [139] P$[178]"" [167]6275
  447. 6285 MN$(I)[178]P$
  448. 6290 [153] [199](147)
  449. 6295 [130]
  450. 6300 F2[178]0
  451. 6305 [137]6005
  452. 6310 [139] Q4[178]0 [167]6550
  453. 6315 [129] I[178]1 [164] Q4
  454. 6320 HD$[178]"LOADVALSSAYWAIT":[141]6390
  455. 6325 W$[178]ES$(I)
  456. 6330 [141]6405
  457. 6335 X[178]199:W$[178]ES$(I):[141]6425:DE[178]DE[170]PQ
  458. 6340 ES$(I)[178]W$
  459. 6345 [139] Z$[178][199](13) [167]6005
  460. 6350 [139]Z$[178]"N" [167]6375
  461. 6355 [141]6420
  462. 6360 X[178]78:[153][200](CM$,18);:[141]7010
  463. 6365 [139] P$[178]"" [167]6360
  464. 6370 EN$(I)[178]P$
  465. 6375 [153] [199](147)
  466. 6380 [130]
  467. 6385 [137]6005
  468. 6390 [153]HD$;[163]25)"VALDIT QUESTIONS"
  469. 6395 [153] [200](CM$,2);"VALNTER   (null)WAITEWRITE  STR$WAITELETE  (null)WAITNDELETE  (null)WAITEXT"
  470. 6400 [142]
  471. 6405 [139] [200](W$,1)[178]"^" [167] [153]" ** DELETED QUESTION ** WAIT":[141]6545
  472. 6410 [153] [200](CM$,5):L[178]0:[141]5625
  473. 6415 [142]
  474. 6420 [153][200](CM$,17);"(null)EW ANSWER:":[142]
  475. 6425 [153][200](CM$,10);"VALNTER (null), STR$, (null), OR (null)":PQ[178]0
  476. 6430 [141]180
  477. 6435 [139] Z$[178]"R" [167]6465
  478. 6440 [139] Z$[178]"D" [167]6480
  479. 6445 [139] Z$[178]"U" [167]6510
  480. 6450 [139] Z$[178][199](13)[167] [142]
  481. 6455 [139] Z$[178]"N" [167] [142]
  482. 6460 [137]6430
  483. 6465 [153][200](CM$,12);:[141]7010
  484. 6470 [139]P$[178]""[167][142]
  485. 6472 [139] [200](W$,1)[178]"^" [167] PQ[178]PQ[171]1:DQ[178]DQ[171]1
  486. 6475 W$[178]P$:[142]
  487. 6480 [139] [200](W$,1)[179][177]"^" [167]6495
  488. 6485 [153] [200](CM$,12);"ALREADY DELETED!WAIT":[129] WT[178]1 [164] 500:[130]
  489. 6490 [153] [200](CM$,10);V$:[137]6425
  490. 6495 W$[178]"^"[170]W$:[153][200](CM$,12);"QUESTION DELETEDWAIT"
  491. 6500 [129]WT[178]1[164]500:[130]:DQ[178]DQ[170]1:PQ[178]PQ[170]1
  492. 6505 Z$[178]"N":[142]
  493. 6510 [139] [200](W$,1)[178]"^" [167]6530
  494. 6515 [153]"NOT A DELETED QUESTION!WAIT"
  495. 6520 [129] WT[178]1[164]500:[130]
  496. 6525 [153] [200](CM$,10);V$:[137]6425
  497. 6530 [141]6545:[153] [200](CM$,12);" ** QUESTION RESTORED! ** WAIT"
  498. 6535 [129]WT[178]1 [164] 500:[130]:Z$[178]"N":DQ[178]DQ[171]1:PQ[178]PQ[171]1
  499. 6540 [142]
  500. 6545 W$[178][201](W$,[195](W$)[171]1):[142]
  501. 6550 [153]"(null)O QUESTIONS OF THIS TYPEWAIT"
  502. 6555 [153]:[153]"(null)RESS SPACEBARWAIT TO CONTINUE"
  503. 6560 [141]180
  504. 6565 [139] Z$[178]" " [167]6005
  505. 6570 [137]6560
  506. 7010 [151]198,0
  507. 7015 P$[178]""
  508. 7020 [153]"TOCMD";
  509. 7025 [161]Q$:[139]Q$[178]""[167]7025
  510. 7030 [139]Q$[178]"LOAD"[176]Q$[178]""[176]Q$[178]"ON"[176]Q$[178]""[176]Q$[178]"CMD"[176]Q$[178]""[167]7025
  511. 7035 [139]Q$[178]""[176]Q$[178]"WAIT"[176][198](Q$)[178]141[167]7025
  512. 7040 [139][198](Q$)[178]13[167]7075
  513. 7045 [139][198](Q$)[178]20[167]7060
  514. 7050 [139][195](P$)[178]X[167]7025
  515. 7055 P$[178]P$[170]Q$:[153]Q$"TOCMD";:[137]7025
  516. 7060 [139]P$[178]""[167]7025
  517. 7065 P$[178][200](P$,[195](P$)[171]1):[153]"CMDTO CMDCMD";:[139]P$[178]""[167]7020
  518. 7070 [137]7025
  519. 7075 [153]" ":[142]
  520. 8005 [129]J[178]896 [164] 933:[135]X:[151]J,X:[130]
  521. 8010 [131]160,2,177,45,153,137,0,200,192,6
  522. 8015 [131]208,246,162,1,32,198,255
  523. 8020 [131]32,228,255,201,13,240,11,164,142,145
  524. 8025 [131]140,200,132,142,196,139,208,238,76,204,255
  525. 8030 [142]
  526. 8040 [151]53280,2:[151]53281,0:[153][199](147);[163]28)"LEN(null)VALATN(null) (null)(null)ATN(null)VAL"
  527. 8045 [153][200](CM$,12);
  528. 8050 [153][163]16)"(null)ATN(null)(null)RIGHT$(null)CHR$!WAIT":[141]9080
  529. 8055 [153]:[153]"(null)HIS COMMAND WILL GET RID OF ALL"
  530. 8060 [153]"QUESTIONS IN MEMORY."
  531. 8065 [153]:[153]"(null)RESS  SPACEBARWAIT FOR MAIN MENU"
  532. 8070 [153]"      LEN KEYWAIT TO CLEAR ALL QUESTIONS
  533. 8075 GOSUB180
  534. 8080 IF Z$=" " THEN120
  535. 8085 IF Z$="C" THEN GOSUB9035:GOTO120
  536. 8090 GOTO8075
  537. 9005 A$="                 "
  538. 9010 A$=A$+A$+A$+A$+A$
  539. 9015 A$=A$+A$+A$
  540. 9020 V$=A$
  541. 9025 CM$=""
  542. 9035 TQ=0:Q1=0:Q2=0:Q3=0:Q4=0
  543. 9040 DQ=0:DT=0:DF=0:DM=0:DE=0
  544. 9045 MQ=0:M1=0:M2=0:M3=0:M4=0
  545. 9050 D1=0:D2=0:D3=0:D4=0:D5=0
  546. 9055 RETURN
  547. 9075 REM DEVICE CHECKER
  548. 9077 OPEN15,4,15:CLOSE15
  549. 9078 IFST=0THEN5005
  550. 9079 FORX=1TO3:PRINT"[147][208]RINTER IS OFF..[215]AIT FOR MENU..":GOSUB9080:NEXT:GOTO120
  551. 9080 T=87:N$="251251251251251251251"
  552. 9081 S=54272:POKES+6,96:POKES+24,15
  553. 9082 FORI=1TO18STEP3
  554. 9083 POKES+1,VAL(MID$(N$,I,2)):POKES+4,33
  555. 9084 FORJ=1TOT*VAL(MID$(N$,I+2,1)):NEXT
  556. 9085 POKES+4,0:NEXT
  557. 9086 RETURN
  558. 10000 REM DIRECTORY READ
  559. 10001 PRINT"[147][208]RESS SPACE TO PAUSE[146]"
  560. 10005 OPEN15,8,15
  561. 10010 OPEN5,8,0,"$":GOSUB4215
  562. 10011 GET#5,F$,F$
  563. 10012 GET#5,F$,F$:IFF$=""THEN10050
  564. 10013 GETK$:IFK$=CHR$(32)THENGOSUB10075
  565. 10015 GET#5,AZ$,BZ$
  566. 10020 LF$=STR$(ASC(AZ$+CHR$(0))+ASC(BZ$+CHR$(0))*256):PRINTLF$" ";
  567. 10025 GET#5,FI$:PRINTL$;FI$;:IFFI$=""THENPRINT:GOTO10012
  568. 10030 GOTO10025
  569. 10050 CLOSE5:CLOSE15
  570. 10055 PRINT"[208]RESS A KEY TO CONTINUE[146]":GOSUB180
  571. 10070 GOTO11000
  572. 10075 PRINT"[208]RESS SPACE TO CONTINUE[146]"
  573. 10080 GETK$:IFK$=CHR$(32)THEN10085
  574. 10082 GOTO10080
  575. 10085 PRINT"[145][145]":RETURN
  576. 10100 REM FORMAT A DISK
  577. 10101 PRINT"[147][198]ORMAT A [196]ISK"
  578. 10105 OPEN15,8,15
  579. 10110 GOSUB4215
  580. 10115 INPUT"[196]ISK [206]AME[157][157][157][157][157][157][157][157][157]<RETURN TO ABORT>[145][157][157][157][157][157][157]";NM$
  581. 10120 IFNM$=CHR$(13)THENCLOSE15:GOTO11000
  582. 10122 PRINT"[198]ORMATTING WILL ERASE ALL FILES"
  583. 10123 INPUT"[193]RE YOU SURE[146] [[217]/[206]]";K$
  584. 10124 IFK$<>"Y"THENCLOSE15:GOTO11000
  585. 10125 PRINT"[147][198]ORMATING [196]ISK..."
  586. 10130 PRINT#15,"N0:"+NM$+",TD"
  587. 10135 GOSUB4215
  588. 10140 CLOSE15:GOTO11000
  589. 10200 REM VALIDATE
  590. 10201 PRINT"[147][214]ALIDATE [196]ISK"
  591. 10205 PRINT"[214]ALIDATING MAY TAKE A WHILE."
  592. 10210 INPUT"[207].[203]. TO PROCEED [[217]/[206]]";K$
  593. 10215 IFK$<>"Y"THEN11000
  594. 10220 OPEN15,8,15
  595. 10225 GOSUB4215
  596. 10230 PRINT#15,"V0:"
  597. 10235 PRINT"[147][214]ALIDATING...[146]":FORJ=1TO1100:NEXT
  598. 10240 CLOSE15:GOTO11000
  599. 10300 REM SCRATCH A FILE
  600. 10301 PRINT"[147][211]CRATCH A FILE"
  601. 10305 INPUT"[198]ILE [206]AME[157][157][157][157][157][157][157][157][157]<RETURN TO ABORT>[145][157][157][157][157][157][157]";NM$
  602. 10310 IFNM$=CHR$(13)THENCLOSE15:GOTO11000
  603. 10315 INPUT"[193]RE YOU SURE [[217]/[206]]";K$
  604. 10320 IFK$<>"Y"THENCLOSE15:GOTO11000
  605. 10325 PRINT"[147][211]CRATCHING FILE..."
  606. 10330 OPEN15,8,15
  607. 10335 GOSUB4215
  608. 10340 PRINT#15,"S0:"+NM$
  609. 10345 GOSUB4215
  610. 10350 FORJ=1TO1100:NEXT:CLOSE15:GOTO11000
  611. 10400 REM RENAME FILE
  612. 10401 PRINT"[147][210]ENAME A FILE"
  613. 10405 INPUT"[207]LD [206]AME[157][157][157][157][157][157][157][157][157]<RETURN TO ABORT>[145][157][157][157][157][157][157]";NM$
  614. 10410 IFNM$=CHR$(13)THENCLOSE15:GOTO11000
  615. 10425 INPUT"[206]EW [206]AME[157][157][157][157][157][157][157][157][157]<RETURN TO ABORT>[145][157][157][157][157][157][157]";NW$
  616. 10430 IFNW$=CHR$(13)THEN CLOSE15:GOTO11000
  617. 10435 INPUT"[193]RE YOU SURE [[217]/[206]]";K$
  618. 10440 IFK$<>"Y"THENCLOSE15:GOTO11000
  619. 10445 PRINT"[147][210]ENAMING ";NM$;" TO ";NW$
  620. 10450 OPEN15,8,15
  621. 10455 GOSUB4215
  622. 10460 PRINT#15,"R0:"+NW$+"="+NM$
  623. 10465 GOSUB4215
  624. 10470 FORJ=1TO1000:NEXT:CLOSE15:GOTO11000
  625. 10500 REM INITIALIZE DISK
  626. 10505 OPEN15,8,15:GOSUB4215
  627. 10510 PRINT#15,"I0:"
  628. 10515 GOSUB4215:PRINT"[207].[203].[146]"
  629. 10525 FORJ=1TO1000:NEXTJ:CLOSE15:GOTO11000
  630. 11000 REM DISK COMMAND MENU
  631. 11005 PRINT"[147][196]ISK [195]OMMANDS[146]"
  632. 11010 PRINT"1.[146] [196]IRECTORY"
  633. 11015 PRINT"2.[146] [198]ORMAT A [196]ISK"
  634. 11020 PRINT"3.[146] [214]ALIDATE A [196]ISK"
  635. 11025 PRINT"4.[146] [211]CRATCH A [198]ILE"
  636. 11030 PRINT"5.[146] [210]ENAME A [198]ILE"
  637. 11040 PRINT"6.[146] [201]NITIALIZE"
  638. 11045 PRINT"7.[146] [205]AIN [205]ENU"
  639. 11050 PRINT"[211]ELECT NUMBER[146]"
  640. 11055 GETZ$:IFZ$=""THEN11055
  641. 11060 Z=VAL(Z$)
  642. 11065 IFZ<1ORZ>7THEN11055
  643. 11070 ON Z GOTO10000,10100,10200,10300,10400,10500,120
  644.